function u=abs_r(a)

p=length(a);
%w=1./((p:-1:1));
w=1;
u=sum(abs(a).*w);